Public Class pinakas
Implements IComparable
Public Function CompareTo(ByVal obj As Object) As Integer Implements IComparable.CompareTo
Dim Compare As pinakas = DirectCast(obj, pinakas)
Dim result As Integer = Me.Num1.CompareTo(Compare.Num1)
If result = 0 Then
result = Me.Num2.CompareTo(Compare.Num2)
End If
Return result
End Function
Dim StrParam1 As String
Dim StrParam2 As String
Dim StrParam3 As String
Dim BoolNum1 As Boolean
Dim BoolNum2 As Boolean
Public Sub New(ByVal StrParam1 As String, ByVal StrParam2 As String, _
ByVal StrParam3 As String, ByVal BoolNum1 As Boolean, _
ByVal BoolNum2 As Boolean)
Param1 = StrParam1
Param2 = StrParam2
Param3 = StrParam3
Num1 = BoolNum1
Num2 = BoolNum2
End Sub
Public Property Param1() As String
Get
Return StrParam1
End Get
Set(ByVal value As String)
StrParam1 = value
End Set
End Property
Public Property Param2() As String
Get
Return StrParam2
End Get
Set(ByVal value As String)
StrParam2 = value
End Set
End Property
Public Property Param3() As String
Get
Return StrParam3
End Get
Set(ByVal value As String)
StrParam3 = value
End Set
End Property
Public Property Num1() As Boolean
Get
Return BoolNum1
End Get
Set(ByVal value As Boolean)
BoolNum1 = value
End Set
End Property
Public Property Num2() As Boolean
Get
Return BoolNum2
End Get
Set(ByVal value As Boolean)
BoolNum2 = value
End Set
End Property
End Class